I W),BC
   EXX
   LD A,(WKDE#) LD E,A
   DEC  D
   EXX
   IF Z THEN
   EXX
   LD DE,(WKDE#)
   EXX
    LD BC,(G_P)
    LD A,B
    ADD A,$40
    LD B,A
    LD (G_P),BC
    LD (NOW),BC
    LD  A,(CP#)
    ADD A,$40
    LD  (CP#),A
    LD A,(HOW)
    DEC  A
    JP Z,END
    LD  (HOW),A
   FI
   FI
  EI
  RET
END:
  EI
  POP AF        ;DUMMY
  RET

NOW DS  2
G_P DS  2
HOW DB  0
WKDE#  DS        2
WKHL#  DS        2

BODAIJU:
;-------------------
  ; ڂROLL
;-------------------
  LD  (INTSP),SP
  LD  SP,INTSP
  PUSH  AF
  PUSH  BC
  PUSH  DE
  PUSH  HL

  LD  BC,(GRAM)

  LD  D,8
BDILP01:
  PUSH  BC
  LD  E,48
BDILP02:
  IN  A,(C)
  RRCA
  OUT (C),A
 